home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 June / macformat-038.iso / Demos / Notting Hill / SINGING / SHARED.Dxr / 01974_TRACEHIT.ls < prev    next >
Encoding:
Text File  |  1996-02-08  |  254 b   |  10 lines
  1. on TraceHit
  2.   global textSpr
  3.   set hit to the clickOn
  4.   if the blend of sprite hit > 0 then
  5.     set posn to hit - FirstSocketSprite() + 1
  6.     set newarticle to GoBackTo(posn)
  7.     set the castNum of sprite textSpr to phraseLookUp(newarticle)
  8.   end if
  9. end
  10.